home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / gcc / ixemulsrc.lha / ixemul-41.4 / library / __write.c < prev    next >
C/C++ Source or Header  |  1995-05-28  |  3KB  |  102 lines
  1. /*
  2.  *  This file is part of ixemul.library for the Amiga.
  3.  *  Copyright (C) 1991, 1992  Markus M. Wild
  4.  *
  5.  *  This library is free software; you can redistribute it and/or
  6.  *  modify it under the terms of the GNU Library General Public
  7.  *  License as published by the Free Software Foundation; either
  8.  *  version 2 of the License, or (at your option) any later version.
  9.  *
  10.  *  This library is distributed in the hope that it will be useful,
  11.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13.  *  Library General Public License for more details.
  14.  *
  15.  *  You should have received a copy of the GNU Library General Public
  16.  *  License along with this library; if not, write to the Free
  17.  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  *  __write.c,v 1.1.1.1 1994/04/04 04:30:14 amiga Exp
  20.  *
  21.  *  __write.c,v
  22.  * Revision 1.1.1.1  1994/04/04  04:30:14  amiga
  23.  * Initial CVS check in.
  24.  *
  25.  *  Revision 1.2  1992/08/09  20:40:39  amiga
  26.  *  add a cast to get rid of a warning
  27.  *
  28.  *  Revision 1.1  1992/05/14  19:55:40  mwild
  29.  *  Initial revision
  30.  *
  31.  */
  32.  
  33. #define KERNEL
  34. #include "ixemul.h"
  35. #include "kprintf.h"
  36.  
  37. int
  38. __write(struct file *f, char *buf, int len)
  39. {
  40.   int err=errno, res = 0;
  41.   int omask;
  42.  
  43.   if (HANDLER_NIL(f)) return len;
  44.  
  45.   omask = syscall (SYS_sigsetmask, ~0);
  46.   __get_file (f);
  47.   /* get results of last call */
  48.   __wait_packet(&f->f_sp);
  49.   res = LastResult(f);
  50.   if (res == -1)
  51.     err = __ioerr_to_errno(LastError(f));
  52.   else
  53.     {
  54.       /* we have no way of telling, whether the last written number
  55.        * of characters was correct or not, we just say, if it wasn't
  56.        * an error (res == -1), than it's ok to continue writing to this
  57.        * file. We have to return 'len' instead of 'res', because the 
  58.        * user normally expects to say "while write(fd,buf,len)==len"
  59.        * as a check whether there was an error with write() or not */
  60.  
  61.       res = len;
  62.  
  63.       if (len > 0)
  64.         {
  65.           /* right append-mode means, before each write do an explicit
  66.            * seek to eof */
  67.           if (f->f_flags & FAPPEND) 
  68.         {
  69.           SendPacket3(f,__rwport,ACTION_SEEK,f->f_fh->fh_Arg1,0,OFFSET_END);
  70.               __wait_packet(&f->f_sp);
  71.         }
  72.  
  73.       /* We need to save a copy of this buffer in our local buffer,
  74.        * because the caller is free to change buf after this function
  75.        * returns. */
  76.       if (len > f->f_async_len) 
  77.         {
  78.           KPRINTF (("asl=%ld,l=%ld,b=$%lx ",f->f_async_len, len,f->f_async_buf));
  79.           f->f_async_len = len*2;    /* don't waste too much memory */
  80.           if (! (f->f_async_buf = (char *)krealloc (f->f_async_buf, f->f_async_len)))
  81.             {
  82.           f->f_async_len = 0;
  83.           /* in that case resort to sync write */
  84.           __release_file (f);
  85.           syscall (SYS_sigsetmask, omask);
  86.           errno = err;
  87.           KPRINTF (("&errno = %lx, errno = %ld\n", &errno, errno));
  88.           return __sync_write (f, buf, len);
  89.         }
  90.         }
  91.       bcopy (buf, f->f_async_buf, len);
  92.           SendPacket3(f,__rwport,ACTION_WRITE,f->f_fh->fh_Arg1,(long)f->f_async_buf,len);
  93.         }
  94.     }
  95.  
  96.   __release_file (f);
  97.   syscall (SYS_sigsetmask, omask);
  98.   errno = err;
  99.   KPRINTF (("&errno = %lx, errno = %ld\n", &errno, errno));
  100.   return res;
  101. }
  102.